Set category `q' for all characters

in tibetan and tibetan-1-column.

diff --git a/lisp/international/characters.el b/lisp/international/characters.el
index b378e9825d78aca029fd572be0f948c488ca8b8b..5eeafb22d6d90bdb5ef4be1e2064ebb0267b1baa 100644 (file)
--- a/lisp/international/characters.el
+++ b/lisp/international/characters.el
@@ -502,12 +502,8 @@
 
 ;; Tibetan character set
 
-(let ((row 33))
-  (while (< row 38)
-    (modify-category-entry (make-char 'tibetan row) ?q)
-    (setq row (1+ row))))
-
-(modify-category-entry (make-char 'tibetan-1-column 33) ?q)
+(modify-category-entry (make-char 'tibetan) ?q)
+(modify-category-entry (make-char 'tibetan-1-column) ?q)
 
 (let ((deflist '(;; chars             syntax category
                  ("\e$(7"!\e(B-\e$(7"J\e(B"                "w"     ?0) ; consonant